home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_B.d64 / lektion 3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  167 lines
  1. 1 rem**********************************
  2. 2 rem*--------- lektion 3 ------------*
  3. 3 rem*--------------------------------*
  4. 4 rem*---- (w) by arno freisinger ----*
  5. 5 rem*--------------------------------*
  6. 6 rem*----------- in 1987 ------------*
  7. 7 rem*--------------------------------*
  8. 8 rem*-------              -----------*
  9. 9 rem**********************************
  10. 10 poke 53280 , 11 : poke 53281 , 11 : print "[155]" : poke 2050 , 1
  11. 15 sys 42291 : poke 46 , peek (35) : poke 45 , peek (781) + 2 : clr
  12. 20 print"[147]"tab(15)"teachmaster"
  13. 30 print""tab(09)"(w) by arno freisinger"
  14. 40 print""tab(10)"                    "
  15. 50 for i = 1 to 2000 : next
  16. 60 print"[147]"tab(15)"lektion 3"
  17. 70 for i = 1 to 1000 : next
  18. 100 print"[147]im letzten kurs haben wir die ersten"
  19. 110 print"befehle kennengelernt."
  20. 120 print"ldx = laden ins x-register"
  21. 130 print"ldy = laden ins y-register"
  22. 140 print"lda = laden in den akku"
  23. 150 print"diese befehle sind vergleichbar mit dem"
  24. 160 print"basic-befehl peek.jetzt lernen wir den"
  25. 170 print"poke kennen."
  26. 180 print"sta = akku inhalt in eine speicherstelle"
  27. 190 print"schreiben."
  28. 200 print""tab(14)"taste druecken"
  29. 210 print""tab(18)"-1-"
  30. 220 gosub 250
  31. 230 on a goto 300 , 60
  32. 247 rem
  33. 248 rem --tasten abfrage-
  34. 249 rem
  35. 250 get a$ : if a$ = "" then 250
  36. 260 if a$ = "z" then a = 2 : return
  37. 270 a = 1 : return
  38. 297 rem
  39. 298 rem -- seite 2 --
  40. 299 rem
  41. 300 print"[147]stx = schreibe x-registerinhalt in eine"
  42. 310 print"speicherstelle."
  43. 320 print"sty = schreibe y-registerinhalt in eine"
  44. 330 print"speicherstelle."
  45. 340 print"dies sind nun die entsprechenden pokes."
  46. 350 print"wir brauchen noch einen befehl und dann"
  47. 360 print"koennen wir schon unser erstes pro-"
  48. 370 print"gramm schreiben. dieser befehl lautet"
  49. 380 print"rts[146] und er bedeutet auf deutsch kehr"
  50. 390 print"zurueck.in unserem fall waere das ins"
  51. 400 print"basic zurueck."
  52. 410 printtab(14)"taste druecken"
  53. 420 print""tab(18)"-2-"
  54. 430 gosub 250  : on a goto 440 , 100
  55. 440 rem
  56. 450 rem -- seite 3 --
  57. 460 rem
  58. 470 print"[147]-------das-erste-programm---------------"
  59. 480 print"wir wollen nun unser erstes programm"
  60. 490 print"schreiben."
  61. 500 print"lda #$01  ; 1 in den akku laden"
  62. 510 print"sta $d021 ; akku inhalt nach $d021"
  63. 520 print"rts       ; zurueck ins basic"
  64. 530 print"was bewirkt dieses programm ?"
  65. 540 print"der erste befehl laed eine 1 in den "
  66. 550 print"akku.der zweite befehl schreibt den "
  67. 560 print"akku-inhalt in die speicherstelle $d021"
  68. 570 print""tab(14)"taste druecken"
  69. 580 print""tab(18)"-3-"
  70. 590 gosub 250 : on a goto 600 , 300
  71. 600 rem
  72. 610 rem -- seite 4 --
  73. 620 rem
  74. 630 print"[147]$d021 (das zeichen $"
  75. 640 print"steht fuer hexadezimalzahlen) bedeutet"
  76. 650 print"in unserer dezimalen schreibweise 53281."
  77. 660 print"wissen sie, was diese speicherstelle"
  78. 670 print"fuer eine aufgabe hat ?nein, dann will"
  79. 680 print"ich es ihnen sagen. sie gibt die "
  80. 690 print"aktuelle hintergrundfarbe des"
  81. 700 print"bildschirms an und eine eins bedeutet"
  82. 710 print"die farbe weiss. mit unserem programm "
  83. 740 print""tab(14)"taste druecken"
  84. 750 print""tab(18)"-4-"
  85. 760 gosub 250 : on a goto 770 , 440
  86. 770 rem
  87. 780 rem -- seite 5 --
  88. 790 rem
  89. 800 print"[147]aendern wir die hintergrundfarbe in"
  90. 810 print"weiss."
  91. 820 print"druecken sie eine taste und"
  92. 830 print"das programm wird ausgefuehrt"
  93. 840 gosub 250
  94. 850 poke 53281 , 1 : for i = 1 to 300 : next
  95. 860 print"sehen sie. druecken sie jetzt wieder"
  96. 870 print"eine taste und der ausgangszustand wird"
  97. 880 print"wieder hergestellt."
  98. 890 gosub 250 : poke 53281 , 11 : for i = 1 to 300 : next
  99. 900 print"dies funktioniert doch prima, aber "
  100. 910 print"weiter mit neuen befehlen."
  101. 920 print"inx[146] = erhoeht den aktuellen wert des"
  102. 930 print"x-registers um eins."
  103. 940 print""tab(14)"taste druecken"
  104. 950 print""tab(18)"-5-"
  105. 960 gosub 250 : on a goto 970 , 600
  106. 970 rem
  107. 980 rem -- seite 6 --
  108. 990 rem
  109. 1000 print"[147]iny[146] = erhoeht den aktuellen wert des "
  110. 1010 print"y-registers um eins."
  111. 1020 print"inc[146] (adresse) = erhoeht eine bestimmte"
  112. 1030 print"speicherstelle um eins."
  113. 1040 print"jetzt das gegenteil :"
  114. 1050 print"dex[146] = zieht vom x-register eins ab"
  115. 1060 print"dey[146] = zieht vom y-register eins ab"
  116. 1070 print"dec[146] (adresse) = zieht von einer
  117. 1080 [153]"speicherstelle eins ab"
  118. 1130 [153]""[163]18)"-6-"
  119. 1140 [141] 250 : [145] a [137] 1150 , 770
  120. 1150 [143]
  121. 1160 [143] -- seite 7 --
  122. 1170 [143]
  123. 1200 [153]"load------jetzt-unser-zweites-programm------"
  124. 1210 [153]"dec $d021 : speicherstelle minus eins."
  125. 1220 [153]"rts       : kehrt zurueck ins basic."
  126. 1230 [153]"dieses programm zieht von der speicher-"
  127. 1240 [153]"stelle hex.$d021, dez.53281 eins ab."
  128. 1250 [153]"dies bedeutet, die farbe, die jetzt"
  129. 1260 [153]"dargestellt wird, wird um eins er-"
  130. 1270 [153]"niedrigt.in unserem fall waere dies"
  131. 1390 [153]""[163]14)"taste druecken"
  132. 1400 [153]""[163]18)"-7-" : [141] 250 : [145] a [137] 1410 , 970
  133. 1410 [143]
  134. 1420 [143] -- seite 8 --
  135. 1430 [143]
  136. 1440 [153]"loadaus dunkelgrau in hell-rot. druecken"
  137. 1450 [153]"sie eine taste und das programm wird"
  138. 1460 [153]"ausgefuehrt."
  139. 1462 [141] 250
  140. 1464 [151] 53281 ,[194](53281)[171]1
  141. 1470 [153]"druecken sie wieder eine taste und der"
  142. 1480 [153]"ausgangszustand wird wieder hergestellt."
  143. 1490 [141] 250
  144. 1500 [151] 53281 , [194] (53281) [170]1
  145. 1510 [153]"sie sehen, maschinensprache ist doch"
  146. 1520 [153]"ganz einfach."
  147. 1530 [153]"in den naechsten folgen wollen wir uns"
  148. 1540 [153]"mit etwas hoeherer programmierkunst"
  149. 1550 [153]"befassen, aber keine angst, so schwer"
  150. 1560 [153]""[163]14)"taste druecken"
  151. 1570 [153]""[163]18)"-8-" : [141] 250 : [145] a [137] 1580 , 1150
  152. 1580 [143]
  153. 1590 [143] -- seite 9 --
  154. 1600 [143]
  155. 1620 [153]"loadwird es nicht. ich meine,wenn sie es bis"
  156. 1630 [153]"hier geschafft haben,werden sie den rest"
  157. 1640 [153]"auch noch verstehen."
  158. 1650 [153]"geben sie wieder ihr eingabegeraet ein"
  159. 1660 a$ [178] ""
  160. 1670 [133] "dwait oder fwait";a$
  161. 1675 [139] a$ [178] "z" [167] [137] 1410
  162. 1680 [139] a$ [178] "f" [167] f[178]8 : [137]1710
  163. 1685 [139] a$ [178] "" [167] [128]
  164. 1690 [139] a$ [178] "d" [167] f[178]1 : [137]1710
  165. 1700 [137] 1660
  166. 1710 [151] 2 , f : [151] 45 ,3 : [151] 46 , 8 : [147] "lektion 4" , [194] (2)
  167.